function Result=Study_1_SubFun_TargetMom(Info,ParamVec)

%% Setup
ParamInput  =   struct('XI',1/82.5/4,'Pir_SS',0.02/4);
% ,'NU_C',1,'NU_L',1
for ii=1:Info.ParamNum
    ParamInput.(Info.ParamList{ii})     =   ParamVec(ii);
end
PP          =   Setup_PP(ParamInput);
PP.InfoPrint=   1;
Result      =   struct('ParamVec',ParamVec,'PP',PP,'Flag',1);
%% Solve the Steady State
PSI_0       =   1;
FracHN_w_0  =   1;
FracHN_wN_0 =   PP.ExoState.Idio_RI.InvDist(2)/PP.ExoState.Idio_RI.InvDist(1);
DiscFactor_0=   0.02;

try
    SS              =   SteadyState_Solver(PP,PSI_0,FracHN_w_0,DiscFactor_0,FracHN_wN_0);
    Result.SS       =   SS;
    Result.WI       =   SS_WealthIncome(PP,SS);
    Result.MPC      =   SS_MPC(PP,SS);
    Result.MomVec   =   [Result.WI.Wealth.Frac_Neg;...
                         Result.WI.Wealth.Median/Result.WI.Income.Median;...
                         Result.WI.WealthIncomeRatio.Quant(5);...
                         Result.WI.WealthIncomeRatio.Share_HtM;...
                         Result.MPC.Quant(4);Result.MPC.Avg ...
                         ];
catch
    Result.Flag =   0;
    return
end
